﻿
Partial Class Controles_ControlRegistro
    Inherits System.Web.UI.UserControl
    Public iAnimalSeleccionado As New Integer
    Public clases(9) As String



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Var As String
        Var = Request.QueryString("opt")
        Select Case Var
            Case "0"
                clases(0) = "seleccion"
            Case "1"
                clases(1) = "seleccion"
            Case "2"
                clases(2) = "seleccion"
            Case "3"
                clases(3) = "seleccion"
            Case "4"
                clases(4) = "seleccion"
            Case "5"
                clases(5) = "seleccion"
            Case "6"
                clases(6) = "seleccion"
            Case "7"
                clases(7) = "seleccion"
            Case "8"
                clases(8) = "seleccion"

        End Select



        'clases(1) = ""
        'clases(3) = ""
        'clases(4) = ""
        'clases(5) = ""

        Try
            iAnimalSeleccionado = Request.QueryString("animal")
        Catch ex As Exception
            iAnimalSeleccionado = 0
            Response.Redirect("~/Registro/buscar.aspx")
        End Try
    End Sub
End Class
